|
<%set rs=server.createobject("adodb.recordset")
rs.open "haber where sondakika=true and koseyazisi=false and haberonay=true order by cDate(tarih) desc, cDate(saat) desc",cilem,1,3
kayitsayisi = rs.recordcount%>
| <%=webadresi%><%=klasor%>tema/<%=tema%>/genelustbar.gif<%Else%><%=webadresi%><%=klasor%>tema/<%=tema%>/sondakikabg.gif<% end if%>">
|
<%if seo=true then %><%KATID=guvenlik(bol(0))%><% else%><%KATID=guvenlik(request("KATID"))%><% end if%>
<%set rsmanset=server.createobject("adodb.recordset")
rsmanset.open "haber where mansethaber=true and koseyazisi=false and KATID="&cint(KATID)& " and haberonay=true order by cDate(tarih) desc, cDate(saat) desc",cilem,1,3
mansetkayitsayisi= rsmanset.recordcount%>
<%if mansetkayitsayisi="" or mansetkayitsayisi="0" then %>
<%Else%>
 |
Yükleniyor... |
|
<%
rsmanset.pagesize = mansetsayisi
for i=1 to rsmanset.pagesize
if rsmanset.eof then
exit for
end if
%>
<%manset = manset + 1%><%
rsmanset.movenext
Next
%>
<%if seo=true then %><%KATID=guvenlik(bol(0))%><% else%><%KATID=guvenlik(request("KATID"))%><% end if%>
<%
set rsmanset=server.createobject("adodb.recordset")
rsmanset.open "haber where mansethaber=true and koseyazisi=false and KATID="&cint(KATID)& " and haberonay=true order by cDate(tarih) desc, cDate(saat) desc",cilem,1,3
mansetkayitsayisi= rsmanset.recordcount%>
<%
rsmanset.pagesize = mansetsayisi
for i=1 to rsmanset.pagesize
if rsmanset.eof then
exit for
end if
%>
|
 <%=webadresi%><%=klasor%>tema/<%=tema%>/mansetresimyok.gif<% else %><%if guvenlik(rsmanset("resimsec"))="Url" then %><%=guvenlik(rsmanset("resimurl"))%><% else %><%=webadresi%><%=klasor%>resim/<%=guvenlik(rsmanset("resim"))%><% end if%><% end if%>" width="280" hspace="1" vspace="1" style="border: 1px solid #C0C0C0"> |
|
<%=guvenlik(rsmanset("baslik"))%> |
|
<%=rsmanset("kisahaber")%>
|
<%mansetsira = mansetsira + 1%><%
rsmanset.movenext
Next
%>
<%end if%>
|
|
|
<%if seo=true then %><%KATID=guvenlik(bol(0))%><% else%><%KATID=guvenlik(request("KATID"))%><% end if%>
<%
KategoriSirala = 2
set rs=server.createobject("adodb.recordset")
rs.open "haber where haberonay=true and koseyazisi=false and KATID="&cint(KATID)& " ORDER BY mansethaber desc, cDate(tarih) desc, cDate(saat) desc",cilem,1,3
habersayisi = rs.recordcount%>
<% If rs.EOF And rs.BOF Then %>
 <% Else%>
<%sayfa_sayisi=genelsayfasayisi
sayfasayisi = "sayfa_sayisi"
sayfano = Request.QueryString("sayfano")
ToplamKayit = rs.recordcount
ToplamSayfa = ToplamKayit/sayfa_sayisi
Function Tamamla(ToplamSayfa)
If InStr(ToplamSayfa, ",") <> 0 Then
Tamamla = Int(ToplamSayfa + 1)
Else
Tamamla = ToplamSayfa
End If
End Function
GenelSayfa = Tamamla(ToplamSayfa)
if sayfano = "" or sayfano = 1 then
sayfano = 0
else
end if
if sayfano > 1 then
sayfano = sayfano-1
else
sayfano=sayfano
end if
ilksayfa = sayfa_sayisi * sayfano
sonsayfa = ilksayfa + sayfa_sayisi
%>
<%
sayi = 0
do while not rs.eof
sayi=sayi+1
if sayi > ilksayfa and sayi =< sonsayfa then
%>
<% if yan=KategoriSirala then
response.write ("")
yan=0
End if
%>
|
|
<%=guvenlik(rs("baslik"))%> |
|
|
 |
<%if guvenlik(rs("resimsiz"))="" or guvenlik(rs("resimsiz"))="Kapat" then %><% else %>
 <%=guvenlik(rs("resimurl"))%><% else %><%=webadresi%><%=klasor%>resim/<%=guvenlik(rs("resim"))%><% end if%>" alt="<%=guvenlik(rs("baslik"))%>" style="border:1px solid #DDDDDD; width: 80px; margin-left:0; margin-right:5px; margin-top:3px; margin-bottom:0" align="left" /><% end if%><%=guvenlik(rs("kisahaber"))%>...<%if seo=true then %>-<%=kelime(rs("baslik"))%>.html"><% else %>"><% end if%>
Devamı |
|
|
<% yan=yan+1
if yan = (KategoriSirala +1) then
response.write (" ")
end if
%>
<%
else
end if
rs.movenext
loop%>
<%if seo=true then %><%KATID=guvenlik(bol(0))%><% else%><%KATID=guvenlik(request("KATID"))%><% end if%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "haber where haberonay=true and KATID="&cint(KATID)& "",cilem,1,3
%>
&sayfano=1">İlk Sayfa -
<%
if sayfano <> 0 then%>
&sayfano=<%=sayfano%>">
Önceki Sayfa -
<%else
end if%>
<%
for sayfanumarasi = 1 to GenelSayfa
%>
&sayfano=<%=sayfanumarasi%>">
[<%=sayfanumarasi%>]<%
if sayfanumarasi <> GenelSayfa then %><%else%><%end if%>
<%
next
%>
<%
if GenelSayfa <> sayfano+1 then%>
-
&sayfano=<%=sayfano+2%>">
Sonraki Sayfa
<%else
end if%>
-
&sayfano=<%=GenelSayfa%>">
Son Sayfa
<%end if
%>
|
|
|
<%set rskategori=server.createobject("adodb.recordset")
rskategori.open "kategori",cilem,1,3
%>
<%
ayir=2
Dim l
l= 0
do while l < 4 and not rskategori.eof
%>
<%
Dim kategoriler
kategoriler = 0
do while kategoriler < ayir and NOT rskategori.eof
%>
| <%if seo=true then %>-<%=kelime(rskategori("kategoriadi"))%>.html"><% else %>"><% end if%><%=guvenlik(rskategori("kategoriadi"))%>
¬ |
<%KATID=guvenlik(rskategori("KATID"))%>
<%Set rs = cilem.Execute("Select * from haber where koseyazisi=false and KATID ="&guvenlik(rskategori("KATID"))&" and haberonay=true order by ID desc")
If not rs.eof then%>
<%Set basliksay = cilem.Execute("Select count(ID) from haber where koseyazisi=false and KATID=" & cint(KATID)& "and haberonay=true ")
basliksayisi = rs.recordcount%>
<%If basliksay(0) > 5 then verisay = 4 else verisay = basliksay(0)
basliksay.close%>
<%For i = 1 to verisay
If i = 1 then %>
<% else%>
<%
end if
rs.movenext
next
End If
rs.close %>
|
|
<%
rskategori.Movenext
kategoriler = kategoriler + 1
loop
%>
<%
l=2+1
loop%>
|
|
|
|
|
<%if seo=true then %>
